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ABSTRACT. 

THIS PROGRAM IS DESIGNED AS A rig NANCE AI 

FIELD SERVICE PERSOTEL, iat VERIFY THe PROFER OPERATION 
OF A COMPLETE CONRUNTCATION CINK PRON "ONE 

SYSTEM TO ANOTHER OR TO A COMMUNICATION TEST CENTER. 


THIS PROGRAM MUST BE USED IN CONJUNCTION WITH THE INTERPROCESSOR 
TEST PROGRAM(DZITP) ON A POP-11 SYSTEM WITH A Di-il INTERFACE. 


REQUIREMENTS. 
EQUIPMENT 


A. PDP-11 SYSTEM WITH 4K OF CORE. 
B. A DC1L COMMUNICATION INTERFACE. 


STORAGE. 

4K OF CORE 

LOADING PROCEDURE 

THIS PROGRAM IS IN ABSOLUTE FORMAT. 

THE ABS LOADER MUST BE USED TO LOAD THE PROGRAM. 

OPERATING PROCEDURES. 

A. = METHODS OF ENTERING goat de ARE PROVIDED 
LORD Rene rece 200 £03 Ate Ea TO ENTER PARAMS FROM CONSOLE TTY, PROCEED TO SECTION 3B. 
L T SWITCH REGISTER BIT 15 BEFO 

Steet Ng 70 EN ENTER PARANS CONSOLE SWITC PROCEED TO SECTION ¢ 

HE PROGRAM MAY BE RESTARTED AT LOC 204 (ONCE PARAMETERS HAVE ALREADY BEEN SELECTED) 

B. CONSOLE DIALOGUE PARAMETER INPUT (CURRENT VALUES FOR PARAMETERS ARE FOUND IN OVERLAY) 


1. THE oan een THE NAME OF THE VARIABLE OVERLAY. 
e- ee THE ee OVERLAY, TYPE A CARAGE RETURN 


e: i zi robe SIP tite: “Tyre IN IN OMB. 


IF DN OR DMB WAS TYPED IN STEP _1 ABOVE THEN THE BUS ADDRESS 
VECTOR ETC. REFERED TO IN STEPS 2 THRU 7, PERTAIN TO THE DONi1 OR DMBB. 


2. THE say WILL TYPE ne DEFAULT BUS eoonESS OF THE INTERFACE UNDER TEST. 
A. A CAR. AULT BUS ADDRESS 
B. TYPEIN ACTUAL BUS ADDRESS 

3. THE ee WILL TYPE OUT THE DEFAULT VECTOR ADDRESS 
A. TYPE A CAR. RETURN TO USE DEFAULT ADDRESS 

B. TYPEIN ACTUAL VECTOR SS 


4, THE PROGRAM WILL TYPE OUT THE DEFAULT INTERFACE PRIORITY 
NOTE: 200=PRIO 4, 240=PRIO S, 300=PRIO 6, ETC. 


SS 
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A. TYPE A CAR. RETURN TO USE DEFAULT VALUE 
B. TYPEIN ACTUAL’ VALUE 


5. THe REQUIRED BY WIL He TSR. THE PEF AULT VALUE OF PARAM#1 





IF REQUIRED B R.(SEE S 0.0 IN OVERLAY UTSTING FOR PARAMETER DESCRIFTION) 
A. TYPE e+ TO USE DEFAULT VALUE 
; TYPEIN ACTUAL V 


B 
6. ie PROGRAM BY THe TSR. THE DEFAULT VALUE OF PARAM#e 
4 


— BY 
A CAR. RETURN TO USE DEFAULT VALUE 
8: ENT R ACTUAL VALUE 


THE PROGRAM WILL TYPEQUT THE DEFAULT VALUE OF PARAMs3 
IF REGUIEED BY M7 OVERLAY. 
AR. TYPE A CAR. RETURN TO oe DEFAULT VALUE 
THE DN-11 WILL USE PARAM #3 AS THE # TO DIAL. 
IF USING A MODE RITHOUT gt HANDSHAKING, 
THE NUMBER MUST TERMINATE te 
~NUMBER™ CHARACTER (:) 
B. ENTER ACTUAL VALUE. 


8. THE PROGRAM WILL RETURN TO STEP 81 IF THIS SETUP 
WAS FOR DN11 OR OM1188. 


™ 


9. THE PROGRAM WILL REQUEST THAT SWITCH REGISTER BE SET. 
| A. ae TUS SWITCH REGISTER AS SPECIFIED IN STEP D. 
AND TYPE A CAR. RETURN. 


NOTE: IF BNY if THE ABOVE ITEMS @ THRU 7 WERE CHANGED BY ENTERIN 
NEW VALUES, THE NEW veLUE BECOMES THE DEFAULT VALUE FOR SUBSEGUEN 
RESTARTS 5! THE PROGR 





es 
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ll 
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C. MANUAL PARAMETER INPUT FROM SWITCH REGISTER 
° Ma 3 PROGRAM HALTS FOR ISR(INTERFACE SERVICE ROUTINE) SPECIFICATION 
SWRI4Y=SETUP DOM ti" I 
SWRISSSETUP DN-11 ISR 
=000000= SETUP VARIABLE ISR 


2. THE FOLLOWING HALTS ARE REPEATED FOR EACH ISR SPECIFIED. 
ae Se oleIte 5; pd Pa toe Ml VARIABLE OVERLAY. (EACH ENTRY SET SWICHES THEN HIT CONTINUE 


N 
HALT FOR VECTOR a as oF INTERFACE 
T FOR PRIORITY OF INTERFAC 
TERF PARAM #1 heigl WG 10.0 IN OVERLAY LISTING FOR PARAMETER DESCRIPTION) 
HALT FOR_INTERFACE PARAM #2 (DN11 AND DMBS PARAMETERS ARE DISCUSSED IN SECT. 10.0 OF THE MON 
GO BACK TO STEP A IF THIS SETUP. Has FOR DN OR OMB. 


3. HALT FOR OPERATIONAL SWITCH TTINS. (SEE STEP D.) 
A. PRESS CONTINUE TO START TESTING 


BEFORE ATTEMPTING TO RUN THIS PROGRAM, THE OPERATOR MUST 
ACCERTAIN THE COMPLETE COMMUNICATION LOOP AND PROCEEDURES 

TO BE INCLUDING THe TYPE OF MODEMS, THE TYPE OF 

INTERFACE SEE RING USED AT THE OTHER CPU AND THE MODES OF OPERATION, 
DATA AND PARAMETERS TO BE USED AT EACH CPu. 


pas WILL REQUIRED VOCAL COMMUNICATION WITH THE OPERATOR 
THE OTHER CPU UNLESS Ts CONFIGURATION AND OPERATION 


MMOOWD 
Ba 
nN 
3 
2 


THAT THE EQUIPMENTS ARE COMPATIBLE AND 
AGREEING ON THE MODE AND VARIABLE PARAMETERS TO BE USED, 
THE SYSTEM WHICH IS TO RECEIVE DATA FIRST SHOULD 

LOADED — MODEM BEING USED ON THIS SYSTEM 
HAS AN AUTOMATIC ANSWER FEATURE, IT SHOULD BE ENABLED. 


IRST SHOULD THEN BE LOADED 
TABLISHED EITHER MANUALLY 


Le 
a 
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D. OPERATIONAL SWITCH SETTINGS. 

SW1S=1 HALT ‘ak ERROR 

SWi4=1 SINGLE PASS 

SW14 HAS NO EFF Cle SWO4=0 

1 INHIBIT E OUT 
IBIT ALL _TYPEOUTS EXCEPT ERRORS 
e=0 AND SWO4=1 END PASS IS TYPED 
ANSMITTED/RECEIVED TAR TYPED. 


Pee fe 
ore —— 
meOQoONn i Ded 
ai 
2 
ro 


—O— Ce 


RICS) 
MESSAGE COMTEST/QUICK BROWN FOX/NUMERICS) 

SWO8=1 TRANSMIT RECEIVED DATA (INTERNAL LOOPBACK MODE) 

SWO7=1 DO NOT TEST rele DATA 

SWO&=1 MONITOR TRANSMITTED N coNaOLS 


DATA 
SWOS=1 MONITOR rere VER aN ON OLE T 
ALL DATA WILL APPEAR ON THE CONSOLE 


* IN MANY GaSe 

TTY. THIS I Sper ALY TRUE WHEN THE COMM I NTERFACE 18 
RUNNING AT A FASTER BAUD THAN THE CONSOLE. BUT EVEN AT EQUAL 
OR SLOWER BAUDS, ALL CHARACTERS MAY NOT APPEAR ON THE CONSOLE. 


SWO4=1 RETURN TO MONITOR FOR END FASS 
PROGRAM Le IN THE OVERLAY NEVER RETURNING TO THE MONITOR. 


: 


SWOO=1 ONE-WAY-OUT MODE 


IF Crees SPECIFIED DATA WAS INDICATED, THE PROGRAM WILL TYPE A 
REQUEST FOR THE DATA. DATA MAY BE ENTERED AS ASCII CHARACTERS OR OCTAL CODE. 
TYPE IN THE DATA TERMINATED WITH A CR. Th CODE MAY BE EN TEReD BY TYPING AN 
t(UP ARROW) FOLLOWED BY THE OCTAL CODE cn THE RANGE 000 TO 377 
SEPERATED BY SPACES AND TERMINATED BY t(UP ARROW). 

I.E. ABCDt 000 123 377¢ EFG (CAR.RETURN) 


TYPICAL SWITCH SETTING FOR HALF-DUPLEX=003150 THIS SETTING USES 
INTERNAL LOOPBACK MODE, LOOPS IN OVERLAY, MONITORS TRANSMITTED AND RECEIVED ” 
DATA ON THE CONSOLE TTY, AND TESTS RECEIVED DATA USING TEST MESSAGE #3. 


A TYPICAL SWITCH SETTING FOR FULL-DUPLEX=003144 THIS SETTING 
faa Atel oR pane LOOPBACK MODE. ' 


I 
i PPO SEEOE TRL SVE, Md Ed ERTS” 


ERNINATI ING TRANSMIT SStON 
A 000 Gb6. charac eR is fe eceN tet lt Ws FON fs STOPPED. DURING RECEPTION, 

A 001 CHARACTER IS RECEIVED, THE RECEIVER IS SHUT OFF. 

HE MESSAGE WAS INPUTED BY THE OPERATER, THE TERMINATING CHARACTERS ARE ADDED. 
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TEST MODES 
INTERNAL LOOPBACK MODE 


1. THE OVERLAY WAITS, 2 RECEIVE A MESSAGE (TERMINATED BY <001>) 
@. VERFIES THE DATA AGAINST THE DATA SELECTED BY SWO9 AND SW10{SW7=0) 
3. TRANSMIT THE DATA SELECTED ?! a AND SW10 (SWB=0) OR 
TRANSMIT THE RECEIVED DATA (SWB=1) 
4. RETURNS TO MONITOR FOR “END PASS” (SW4=1) OR 
GO TO STEP 1. (SW4=0) 


EXTERNAL LOOPBACK MODE 


THE OVERLAY SETS REQUEST TO SEND 

WAIT FOR CLEAR TO SEND 

TRANSMITS THE SELECTED DATA 

RESETS REQUEST TO SEND 

WAIT FOR MES TO BE RECEIVED 

VERIFIES THE DATA (SWO7=0) 

RET TO MONITOR FOR “END PASS”. (SWO4=1) OR 
GO TO STEP 1(SWO4=0) 


ONE-WAY-IN MODE 


HE OVERLAY WAITS FOR MESSAGE TO BE RECEIVED. 
VERIFIES” THE DATA SUO7=0 A 
RETURNS TQ MONITOR FOR END PASS" (SWO4=1) OR 
GO TO STEP 1 (SWO4=0) 


ONE-WAY-OUT MODE 


THE OVERLAY SETS REQUEST TO SEND 
WAITS FOR CLEAR TO SEND 

TRANSMITS SELECTED DATA, : 

RETURNS TO MONITOR FOR “END PASS". (SWO4=1) OR 
GO TO STEP 1 (SWO4=0) 


E. THE OVERLAY IS THEN ENTERED AND A CONNECTION ESTABLISHED EITHER 
MANUALLY OR AUTOMATICALLY. 


IF _ONE-WAY-IN OR INTERNAL LOOPBACK MODES ARE SELECTED. 
THE OVERLAY WILL SET DATA TERMINAL READY AND WAIT FOR DATA. 


ONE-WAY-OUT OR 2s OOPBACK MODES WERE areegTeD. 


IF 
THE OVERLAY WILL SET DATA TERMINAL READY AND REQUEST TO SEND. 
ENT oath WILL THEN WAIT FOR CLEAR TO SEND BEFORE ATTEMPTING TO 


FESSAGE, BAD THe CONTENTS OFTHE HTT CSR EVERY G0 SECS. 


UNTIL CLEAR TO SEND is ASS 


weer. 


ee + ee eee ere ee ee eee oe 


a 


Sw 


4 


ee ee we 


OVERLAY 


5.0 


S.1 


6.0 
6.1 
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F. IF SWO4=S0 THE OVERLAY WILL CONTINUE TO 
TRANSMIT/RECEIVE DATA. 


IF SWOY=1 THE OVERLAY WILL RETURN 
TQ THE MONITOR AND TYPE “END PASS”. 


IF BOTH SWO4Y=1 AND 


SW14=1] 


THE PROGRAM WILL REQUEST 


12 INTERFACE PARAMS AFTER ONE PASS OF THE SELECTED 
TEST MODE. 


ie 3 eee da MAY BE ya hl BY TYPING THE FOLLOWING 
CHARACTERS ON Lm OL 


LINE FEED = RESTAR 


T PROGRAM N 20 
GUE TION MARK = PRINTOUT PIRET T 4 anos oF Tipur a ae (ASCII) 
SET SWITCH 15 NEXT 8 WOR 


5 _AND PRES S CONTINUE F 
REST 5° 


PROGRAM MUST ARTE PR 
CARRIAGE RETURN = RESTART AT REQUEST FOR NEW OPERATIONAL SWITCHES. 
PROGRAM AND/OR OPERATOR ACTION 


IF THE OPERATOR WISHES TO MANUALY EXAMINE MIT 

BUFFERS, DO THE peek OSs TO FIND THE START NG ADDRESS 

BUFFER, ‘LOAD SORE 22 10026 AND EXAMINE. TO FIND THE STARTING ADORE 
BUPPER, LOAD ROBRESS 10022 AND EXAMINE. 


OF THE’ TRANSMI 
NORMAL HALTS 
SEE SECTION 4. 
ERRORS 
ERROR REPORTING 


THE TRANSMI 


THE ONLY ERROR REPORT FROM THE CONTROL PROGRAM OCCURS IF THE 
INTERFACE SPECIFIED IS NOT LOADED. 


IF DATA IS RECEIVED AND SWITCH 7 (NO DATA COMP 
COMPARED 


ARE ) 
IS wae THE DATA WILL AGAINST THE PRE SELES TER 
Pea 0 Es FEED CHARACTER IS RECEIVED. IF THERE IS A 
MI Re FOLLOWING ERROR REPORT IS PRINTED: 


RECEIVED DATA=RRRRRR 
DATA SHOULD BE TITTTT 


DATA COMPARE ERROR; BAD DATA=BBB GOOD DATA=GGG 


WHERE RRRRRR_IS THE RECEIVE BUFFER (UP TO S12 CHARACTERS) 
pe IS THE TRANSMIT eran (UP TO S12 CHARACTERS) 


THE BAD DATA 
GGG IS THE GOOD 


IF THE INTERFACE DETECT 
WILL BE PRINTED BEFORE 


DATA CHARACTER 


THE DA 


TA ERROR, THE FOLLOWING 
TA IS COMPARED: 
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THERE WAS A RECEIVER ERROR. RECEIVER DATA REGISTER =XXXXXx 


WHERE XXXAnX 12 tHe KONTENTS OF THE RECEIVER DATA_REGISTER 
THE LOW BYTE THE DATA, AND THE HIGH BYTE IS THE ERROR BITS. 


IF_A RECEIVE TERMINATING CHARACTER<O01> IS NOT DETECTED 
WITHIN Sle CHARACTERS A “BUFFER FULL” PRINTOUT WILL OCCUR. 


7.0 RESTRICTIONS 


THE OPERATION OF THIS PROGRAM REQUIRES COORDINATION BETWEEN 
THE OPERATOR AND T RAT ANOTHER PDP-11 SYSTEM 

oh ee ONE OF THE SYSTEMS IS ALWAYS OPERATING IN A FIXED 
MODE. THE FOLLOWING TABLE LISTS THE VALID COMBINATIONS: 


CPU #1 CPU #2 
ONE-WAY-OUT ONE-WAY-IN 
WAY-IN ONE-WAY 
EXTERNAL -LOOPBACK INTERNAL -LOOPBACK 
INTERNAL -LOOPBACK EXTERNAL ~LOOPSACK 
EXTERNAL -LOOPBACK EXTERNAL~LOOPBACK (FULL DUPLEX) 


a ee ee oe ee 


WHEN THE COMMUNICATION LINK INVOLVES MODEMS THE FOLLOWING 
RESTRICTION APPLY: 


IF RUNNING IN FULL DUPLEX MODE BOTH SYSTEMS 
MUST BE IN EXTERNAL LOOP BACK MODE. 


BOTH SYSTEMS SHOULD BE RUNNING IDENTICAL ROUTINES. 
EXAMPLE: 


IF PROGRAM IS WAITING IN A SCAN ROUTINE AND TYPES OUT 
A “WAITING MESSAGE”, IF AN INCOMING MESSAGE STARTS DURING 
THE TYPE OUT. 17 WILL BE LOST BE TYPEOUT PRIORITY 
IF PL LEVEL 2. THIS HTL The Oe TA OTE ROIS THIS St TURTION 
RUN WITH Sate 1 UP. IF Aber DURING A 
TYPEOQUT THE PROGRAM BE RE : 

IF USING AN ASYNCRONOUS DEVICE 


MODENS AND. THE 

125 DOES NOT CLEAR. THE 

IN THE MIDDLE OF A 1) TF THE PROGRAM 18 RESTARTED 
I HECCAGE FROM MAYNARD W 


TI 
LL - 

IS BECAUSE THE TEST STATION IS STILL LOOKING 

THE INTERUPTED MESSAGE. TO AVOID THIS 
ERROR . RESTART PROGRAM ONLY AT THE END OF THE MESSAGE 

CURRENTLY BEING TRANSMITTED. 


£.0 MISCELLANEOUS 


a 
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wel 


ITEP WAS CHECKED OUT USING hy AOS BaD BELL TELEPHONE MODEMS. 
Oe 
103A (FULL-DUSLEX ASYNCHRONOUS 110 BAUD) 


9.0 PROGRAM DESCRIPTION 


j 

} 

3.1 THE DC1i_ INTERFACE SERVICE ‘ating ARE SETUP, AS SPECIFIED BY THE OPERATOR, 
BY THE ITEP CONTROL PROGRAM 

| 


TIME: PROVIDES A MEANS OF MEASURING ELASPED TIME. IT IS INCREMENTED 
EVERY SECOND BY A CLOCK INTERRUPT ROUTINE IN ITEP. 


3.2 WHEN THE OVERLAY IS FIRST ENTERED y ITEP_AT LOCATION START:, 


3 CONTENTS OF REGISTER ARE a toee IN REGISTER 0: 


4 
HO 
x 


VARIABLES ARE THEN cet UP. 
THE SELECTED ROUTINE DETERMINED BY THE MODE IS THEN ENTERED 
IN 


9.3 THE OVERLAY THEN LOOPS IN ROUTINES: SOWI ,IF “ONE WAY IN” MODE 
WAS SELECTED. SOWO,IF “ONE WAY OUT” MODE WAS SELECTED. 

SILB, IF “INTERNAL LOOP BACK” MODE WAS SELECTED 

SXLB;IF “EXTERNAL LOOP BACK” WAS SELECTED 


9.31 SOWI: IN THIS ROUTINE THE RECEIVER IS IN ITAL eEP AND PROGRAM 

NG FOR THE NISH.IF NOTHING IS RECEIVED 
YPED. WHEN THE RECEIVER IS 
CHES PERMIT,AND TYPES END 


I 
I 
8.32  SOWO: THE TRANSMITTER IS INITIALIZED AND PROGRAM 
TO FINISH,A “WA 


F TT TING” MESSAGE IS TYPED 

EVERY 60 SECS IF T 5 NO ACTION. WHEN THE TRANSMITTER IS 

THE PROGRAM EIT BACK’ TO" SOO TYPES END PASS 
BEPEADINE ON SWITCH SETTINGS. 


9.33  SILB: THE RECEIVER % SNTTIN IZED AND PROGRAM ee bt i 
FE NO ACTION, HE EN ECE IVE BR 1S OnE PROGRAN CHECKS, be TA IF SNITCH 
eT ines penaIT T Ai ENO Pass IS_TYPED IF SWIT aie PERMIT. 
THEN THE FeniT, 0 EN te fi sUATTING® ME SSAGE IS TYPED 
VERY Gir ND ACTION, WHEN TRANSMITTER IS DONE PROGRAM RETURNS 


3 


0 ST ROUTINE. (SILB) 
9.34 ITTER IS INITIALIZED 
Bay if See VERY eo SEC IF IF THERE TS NO ACTION 
neh Nor Pe SeAte we eaate RY EO SE c Be ERE 15 No ACTION 
PERNT fib bane DATA 1S ie cHee Keb iF suit SWITCH SETTINGS 


S TYPED IF SWITCHES ALLO THE PROGRAM NOW 


iF IN ret Oy alge REC IVER TRANSMITTER ARE pe LA IZED 
YPED EVERY 60 SEC IF THER 
bc TION. WHEN BOTH THE RECEIVER AND TRANSMITTER ARE DONE,DATA IS 





0ZDC0 


Of11 o OVERLAY 
8.Pll 





3.4 


9.5 


9.6 


3.7 


9.8 


3.9 






LO 
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CHECKED, END PASS IS TYPED AND PROGRAM LOOPS TO $XL8 DEPENDING 
ON THE SWITCH SETTINGS. 


THE RETURN TO MONITOR ROUTING FOR FN PASS_AT EOP: 

LOCKS OUT INTERUPTS AND SAVES THE TRANSMITTER INTERUPT ENABLE 
BIT_AND ALL GENERAL REGISTERS. IT THEN RETURNS TO THE MONITOR 
TQ TYPE “END PASS”. THE MONITOR CHECKS oe - UP IT RETURNS 
TO ENTER:, OTHERWISE IT RESTARTS THE PROGR 


PATER: IS ENTERED FROM THE MONITOR AFTER TYPEING “END heey? 
IT REST ORES THE GENERAL poe eae AND THE TRANSMITTER Cok 

AS SAVED IN EOP. THE DELAY FLAG IS SET AND PROGRAM RETURNS TO 
THE SCAN ROUTINE (OWO, OWI, IBS XB) WHERE IT CAME FROM. 


THE INITIALIZE TRANSMIT SUBROUTINE AT STARTX: 

at UP_THE INTERFACE AND POINTERS NECESSARY TO 

INITIATE _A TRANSMIT OPERATION. 

AFTER SETTING “DATA TERMINAL READY” AND “REQUEST TO SEND” A CHECK 
S MADE ON PARAM TO DETERMINE IF HALF DUPLEX OPERATION 
WAS SELECTED BY THE OPERATOR. IF IT WAS, THE 

SUBROUTINE WAITS FOR CLEAR TO SEND. 

A WAITING FOR CLEAR TO SEND’ PRINTOUT OCCURS 

EVERY 30 SECONDS UNTIL CLEAR TO SEND IS ASSERTED. 


THE INITIALIZE RECEIVED SUBROUTINE AT STARTR: 
SETS UP THE INTERFACE AND POINTERS NECESSARY TO 
RECEIVE A MESSAGE. 


THE TRANSMIT IN TERRUPT SERVIOE ROUTINE 
T XISR:, 18 ENTERED VIA TRAYSMIT INTERRUPTS 


FROM THE’ INT 
A TEST ish tic 70 SEE IF THE LAST CHARACTER 


Te TT RS ha te He TRANSAT COGIe IN” ad “INTERFACE 


aah te son Fe Try serecTen Tg Te RONITO Renee 
gunTcn is 


THE RECEIVE INTERRUPT SERVICE ROUTINE 


st InteRE IS ENTERED VIA RECEIVER INTERRUPTS 
T D_IN 

T i aera ate THE TTY IF 
Le MONITOR RE VER SWITCH I 


F THE INPUT BUFFER IS SBUEFER FULL’ 

TOUT WILL OCCUR. Pure But otcates THAT A 
TER WAS NOT RECOGNIZED 

TA (WITHIN 1000 CHARACTERS). 

A LINE FEED, 

THE 

TED AT RISR:, THE 

PRINTED OUT 

S BEEN RECEIVED. 


sae 
maim 
oS 
Bq 


a one 
Wz 











al 
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9.10 


10.0 


* PARAMS] AF eOgoR INTO um RECEIVER Status REGISTER (RCSR). 


MO1 
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THE DATA TEST SUSROUTINE AT TESTD: IS 
RECEIVED. A COMPLETE MESSAGE HAS BEEN 


IF A RECEIVE ERROR’ HAD BEEN DETECTED 
THE CONTE TS OF THE “RECE VE BUFFER ar THE 


Lv 

CHARACTERS re, SROREDS F A MISMATCH 

TS DETECTED, THE COMPLETE CONTENTS OF THE 
INPUT BUFFER AND GOOD DATA IS PRINTED. 


PARAMETERS FOR THE DCil 
R LENGTH, DEFAULT= 8 BITS (00) 
BITS 9;10 RECEIVER SPEED SELECT, DEFAULT= LOWEST SPEED (00) 
PARAM IS LOADED INTO THE Met 4 et STATUS REGISTER Mt le 
BIT O rit (0) 


EFAULT= HALF _DUPLEX 
BIT BY 15 Exot 1 babe INTO THE SCR IT_IS_ ONLY A SOFTWARE FLAG. ) 
BITS 3,4 TRANSMIT SPEED SELECT, DEFALLT= LOWEST SPEED (CO) 


PARAM#3 IS NOT USED(177777). 
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540 Aaiabaiaainia bib igh-i-tSbbb- diab btek bab tah bnb t-te dealin halen £44 

541 DC11 INTERFACE SERVICE PARAMS 

5 0 | ARAEERRSAAEAREETEERERRERRRIRREPRERE AEE 
43 cocoa Baise4 ocoo4o DCll: = :ASCIZ /0C / ;1SR NAME 

S45 010004 174000 Ba: 174000 ;BUS_ADDRESS 

S46 010006 900300 IV; 300 ;VECTOR ACORESS 

47 O10010 dog240 PRIOR: 240 ;PRIORITY 

548 010016 05001 PARAMI: 1 :PARAN & 

S43 10018 0300 PARAMe: 0 ; PARAM #2 

550 O10016 177777 PARAMS: 177777 ARAM #3 

551 010020 O00000 IRDA: WORD 0 INITIAL READ DATA ADDRESS 

SS2 010022 900000 IXDA: WORD 0 SINITIAL_XMIT DATA ADDRESS 

553 010024 000000 SETTLE: :WORD 0 ;LINE SETTLE DELAY FLAG 

554 010026 000000 “WORD 0 

555 010030 000000 B2016: :WORD 0 !ADDR OF BIN TO OCT TYPE ROUTINE 

556 010032 000009 TIME: ‘WORD 0 ; TIMER 

557 010034 OO0000 “WORD 

558 010036 010074 “WORD START ;ADDR OF START OF PROGRAM 

559 010040 TX. TERM: 

S60 O10040 000 .BYTE 000 ; TRANSMITTER TERMINATING CHAR. 

561 O10041 RX. TERM: 

see 010041 = OL .BYTE 001 sRECEIVER TERMINATING CHAR. 

S64 Aaiadaimiadeal $ret +-+- ++ telrirh-t-byh ttf -+--d-8-+-}- lh ahahahnieninlaahalaiadahahalaiaiaiinlaiale 
- CONSTANTS + WORKING STORAGE 

sce 1g dE E EEE HEHEHE HEHEHE SEE 

557 oo0000 STAT=RO 

cee 100000 XFLG=100000 sXMIT COMPLETE FLAG 

59 040900 RFLG=40000 - - SRCV COMPLETE FLAG 

570 020000 DSFLG=20000 ;DATA SET STATUS CHANGE FLAG 

571 020000 BIT13=20000 ;INHIBIT PRINTOUTS 

275 o1oo¥e opo000 SXCSR: 0 ;SAVED XMIT CSR 

574 010044 000000 SRCSR: 0 SAVED RCV CS 

575 O10046 ERCSR: 0 ;RCV CSR SAVED ON ERROR 

27 910086 00000 ERDER: SRCV DATA REG SAVED ON ERROR 

s7 010082 000000 DSSTAT: 0 SRCV CSR SAVED ON DS CHANGE 

7¢ gioos¥ ogo0on XC: ;XMIT CHAR COUNT 

80 019056 600000 RCC: 0 SRCV CHAR COUN 

51 910060 90000 ROA: 0 :RCy DATA. ADDR. 

see 040062 XDA: :XMIT DATA ADDR. 

54 10064 177560 TKS: 177560 

Eas O10066 177562 TKB: 

58 910070 177564 TPS: 177564 

ce? Oi007e 17756 TPB: 177566 


crvervary 


9 | 
3 000001 FULL. OUPLEX=000001 
0 177776 P$=177776 
















BOe 
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S31 Sedhalhaiaiat 1-4 t-batigh-frt-t-1-1-5-9-)-tab-t-S-tyh 5 Sotah-+- 1-4 to) -elalalatehaiatalateahalalaialalatbalahalel 
=s> DCL1-X INTERFACE SERVICE ROUTINE 
ss3 wererrrrerrry  laahalabaliahalaletahahaialalchalaialaliciaialadalsialalehdialainicialalalsislainiaieisiaioia 
534 010074 ocdz40 START: NOP 
535 10076 013700 177570 MOV SWR RO “SETUP MODE IN RO 
| 598 910102 D42709 I774od Bic #177400, RO *STRIP JUNK 
| §97 10106 913702 010006 MOV RIV Re 
S95 Ol0ll2 Ole72ee O1e644 MOV gRISR, (R24 j INTERRUPT 
583 O10116 Ola7e2 19010 MOV PRIDR; (Re)+ :VECTORS 
659 10122 piece blese4 MOV aXISR, (Re)+ | 
£51 010126 Ols7e2 O10010 MOV PRIOR, (Re)+ 
S02 010132 913704 010004 MOV BA RY :SETUP BUS ADDR INDEX 
£03 010136 O13714 oO100le MOV PARAM, ORCSR  ;SETUP VARIABLES 
604 610142 913702 919014 MOV PARAMe: Re ; 
695 O10148 O42e702 000061 BIC #0001,Re 
bos O10:S2 O:0264 S004 MOV Re, XCSR(R4) SIN CSR's 
£08 ; s PSSSESEERSELELSEARERKSARAPSEELESEE LSS ESE 
£56 OUTINE USED TO 
619 ; SUBROUTINE DEPENDENT 
611 : SELECT 
! pis : eee LR) Rene 
| $14 O1015& 005027 010032 GO: CLR TIME 
| 6815 019162 005037 012040 €LR DELAY 
616 010166 005937 O12044 €LR STOP 
| 61? 010172 b32700 00000: BIT #0W0, MODE 
' §18 O10 IGe BEQ 1$ 
' 618 4) 000137 0103S2 IMP SOw0 
620 016204 932700 9000002 1S: BIT 8OWI , MODE 
| §21 O10210 ooryoe BEQ 2g 
_ bee piSele 00137 010246 INP SOW! 
| 623 O10216 032700 10 23: BIT #IL8, MODE 
824 10222 Dol 4Ge BEQ 3$ 
| 825 Ol0224 000137 c10446 JMP $ILB 
bes 910230 33: BIT #XL8, MODE 
010234 OO14 BEG 4g 
| $28 O10236 000137 010674 IMP $XLB 
' §28 Oi0242 900000 4§; HALT 
| §36 810644 900776 ok 2 
£21 
B32 
3S 
63s EE EE UTINE LEED IF “OMe WAY IN’ MODE Was SELECTED 
636 ; ROUTINE USED IF “ONE WAY IN” MODE WAS SELECTED. 
£37 NOTE THAT WHEN IN THIS MODE HALF DUPLEX IS THE 
£38 ; ONLY ODE, Ay AILABLE. 
£29 ; “ONE WAY IN” MEANS THAT ONLY THE RECEIVER IS 
640 ENABLED. THE TRANSMITTER IS NEVER “TURNED 
6 4 s UTTTTTTETTTT OTT TTTETTTETETETTECTTOSTOCETETTECTOCTOCCTOCT CCT TOSS SETS 
4 
ES 
B45 O10e%6 094737 012362 $OWI: JSR PC, STARTR 
64 Oidese 032700 40000 1$: BIT #RFLG, STAT 
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Pll 
B47 910256 001013 2g 
648 010260 Oe37e7 010032 000100 TIME, #100 
Pe 51 bSS5 so ; MOV 4S cr Re 
Fey BiBss3 pte oocoo4 MOV XCSR(RY) RB 
652 010276 10400) HLT 1] 
&53 010300 905037 o10c32 CLR TIME 
54 010304 000762 BR 1$ 
656 010306 932737 O00200 177570 2s: BIT SNODAT, SWR 
657 010314 001002 BNE 
£58 010316 904737 011264 JSR TESTD 
653 010322 942700 o40000 33: BIC ARLES STAT 
660 010326 932737 000020 177570 BIT SLOOP; SUR 
651 910334 901405 BEQ 
S62 910336 012737 010350 o1204e2 MOV 84$, BACK 
663 010344 900137 011122 IMP oP 
Bee 610386 000736 4$: BR SOW 
£65 
S57 : SSFSSEFESLESSSESESEAASESLESESLAARSLSRA LEASES SSASLEC SALLE FSFELAEASSLELSE 
655 ; ROUTINE USED IF “ONE WAY OUT" WAS SELECTED. 
£59 : NOTE THAT WHEN IN THIS MODE HALF DUPLEX IS THE ONLY 
£79 : MODE AVAILABLE. 
67} ; “ONE WAY OUT" MEANS THAT ONLY THE TRANSMITTER IS 
&72 THE RECEIVER IS NEVER “TURNED ON. 
p23 1 EREREERESERE SE EEEEEEE SEES REESE SESE ERLE ARES ERS ERE RERSE ESSERE ESSE EEE 
675 910352 OO4737 O1204 $OwO: JSR PC, STARTX 
676 010356 o005037 010032 CLR T 
677 010362 032700 100000 1S: SIT sXFLG, STAT 
678 010366 9001013 BNE 
679 010370 023727 0109022 oD0100 CMP TIME, #100 
680 010376 103771 BLO 1 
681 O10400 011402 MOV ORCSR, Re 
bEe b1pace G16403 o00004 MOV XCSR(R4) RS 
1 104001 HLT 1 
684 010410 005037 010032 CLR TIME 
Se Ble Bers 19000 as: Hie Bie sar 
687 O10422 P5599 000020 177570 BIT SLOOP; SWR 
688 010430 001405 BEQ 
683 010432 012737 pio44y o12042 MOV 83, BACK 
010440 0900137 Olllze IMP EOP 
O10444 000742 3$ BR $OWO 
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FRERAELESELERLERAASLASSAALAA FAA LAALERELALA LSA AFF SSLSEFALLF SSS 
OUTINE USED IF INTERNAL LOOP BACK” WAS SELECTED. 
OTE THAT KHEN IN THIS MODE; HALF DUPLEX IS THE 

Y MODE AVAILABLE. 

INTERNAL LOOP BACK” MEANS THAT THE RECEIVER IS “TURNED ON” 
fi COMLPETE MESSAGE IS RECEIVED. IF DATA IS TO BE CHECKED 
IT 1S; IF “END PASS” IS DES 

THEN THE TRANSMITTER IS ENABLED. A : 
IS TRANSMITTED; THE CYCLE IS REPETED AS ABOVE. 
SERERESEEESEEEREREREREEESEL SESE ES EREESEREEES ERE SEERESESE ESSERE SEES 


PC STARTR 
4 
#RFLG, STAT 
2s 
TINE, #100 
ORCSR,Re 
ASR (A), RE 
TIME 
SNODAT, SHR 
3 rest 
a SRELG, STAT 
T SLOOP, SWR 
Q “eZ 
MOV 84S, BACK 
IMP EOP 
BIT 8400, assur 
BEQ ‘s 
MOV IRDA, Re 
MOV IXDA, R32 
MOV R3 
MOV9 = (R2)4, «= (RB)+ 
BNE - 
MOVB 8177, -(R3) 
INC oo 
MOVB 8177 (R3)+ 
CLRB (R3)4 
SER pe STAR 
BIT #X*LG, STAT 
BNE 
CMP TIME, #100 
BLO 
MOV ORCSR, Re 
MOV XCSR(RY) RI 
HLT : 
CLR IME 
os oS 
BIC 8XFLG, STAT 
IMP SILB 








FTER THE WHOLE MESSAGE 
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~ 


SORE SSe RR LUR ARSE TREES IS Noa SS UMN TEReY 


~ 


Sango 


bse 
£oO 


AJSREIRSTATROIS 


Se 


83h 


oo 
=e 
<£ru 
8 
-_ 
oo 
8 


b= 6-2 & = b> b> = &— 2 = 9-2 = 2 B— & =< b= b= 2 2 he ho sh hs 
oO 
aa 


be 


a TT OLE TC TS ND 


-—O 
ae 
e 


a 


2 
8 
8 


SIEWRESS EERE 


SE 


OOOOOOOOOOOOOO OOO OOOO OOOOKOKOOOO OOOO O00000000 


0-+ b +O B= 0 0-4 b= B= b- B+ 
0-2 = bb bb B+ bb 2 2 2 bh bs 2 = be 
e+b-e— 


~~ 
o 


27. 722) 


{ice 


010014 


010014 


010014 


000100 


177570 


177570 
012042 


useing Cg ogee gr geo are 
QUTINE USED IF a eee LOOP 
HER HALF OR FULL MEAS | BE ae 


1S: 
es: 
73: 


33: 


4$: 


6$: 
BS: 


S$: 
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RECEIVE Ast I 
FINISH THEN RESTARTS THE RECEIVER AND TRANSMITTER. 
; RRSEREEEEEEE EEL ERASERS EES EARERAE EE FEE REE EEEEREELELESEESSAEEA ELE LESS 


$XLB: 


T 
“EXTERNAL LOOP BACK" MEANY 
TURNED ON (IF y 
THEN THE RECEIVER 

Bae ea fhes me 
AS ABOVE. pest 

WAITS FOR BOTH THE 

BIT #F ULL. DUPLEX, PARAM2 
BEQ 1$ 

JSR PC, STARTR 

JSR PC’ STARTX 

CLR TI 

BIT #XFLG, STAT 

BNE 

BIT #RFLG, STAT 

BNE 4g 

CMP TIME, #100 

BLO 

MOV JRCSR, Re 

MOV XCSR(RY) , RB 

HLT 1 

CLR TIME 

BR 23 

BIT $F ULL. DUPLEX, PARAM2 
BNE ? 

BIC #XFLG, STAT 

JSR PC, STARTR 

BR 2 

BIT #FULL. DUPLEX, PARAM2 
BIT #XFLG, STAT 

BNE F 

CMP IME, #100 

BLO 4§ 

MOV QRCSR, Re 

MOV XCSR(RY) ,R3 

Sh he 

BR 4h 

BIC #XFLG, STAT 

BIC 8RFLG, STAT 

BIT #NODAT , SWR 

BNE 53 

ISR PC, TESTD 

BIT sLOOP, SWR 

BEQ 


#$XLB8, BACK 








Bin TED. 
IN THIS MODE. 


FIRST 
F DUPLE: THe MOLE Pe AGE IS Present Tt; 
S at a HE WHO ay Is 


were te re ee ee 


ent oe am. —— 


a en te = me er ne errr en te ee me ee ee 
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80S O1lll6 000137 Cilize JMP EOP 


nn ree ne ee ee re re ee | 0 eo eet ee eee 
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805 s SRAFRALLELLERARLRERAAARERLEE 
807 : ROUTINE TO RETURN 
g98 : To MONITOR FOR 
BIT : SKESLHERFSSESSSAFRRKELEFLE SESS 
812 Ol1l122 E0P: 
813 Olll22 012737 000340 177776 MOV LOCK QUT INTERUPTS. 
814 011130 016437 000004 011262 MOV XeoRtRG), QTPIE ;SA 
815 O11136 042737 177677 Ollete BIC #IC<TIE) QTPIE CLEAR me L BUT TX IE. 
816 O11144 O42764 OO00100 o90004 BIC #TIE, XCSR(RY) 5 CLEAR TX IE LEVEN IF IT WASN’T SET) 
817 O111S2 012766 Ollele oo000e2 MOV #ENTER, 2(SP) T FOR RETURN IF SW 14=1 
818 O11169 010037 012024 MOV RO, SAVRO SAVE REGI 
819 O11164 010137 O12026 MOV 1;SAVRI -SAVE REGISTER 1 
820 011170 010237 012030 MOV Re; SAVRE :SAVE REGISTER 2 
821 011174 010337 012032 MOV R3, SAVR3 -SAVE REGISTER 3 
822 011200 010437 012034 MOV RY; SAVRY ;SAVE REGISTER 4 
823 011204 610537 012036 MOV RS; SAVRS :SAVE REGISTER 5S 
ges 011210 900207 RTS PC RETURN TO CONTROL PROGRAM 
826 011212 ENTER: 
827 Ollele 913700 012024 MOV SAVRO, RO s RESTORE RO 
828 Ollelé 013701 Oledes MOV SAVRI;RI RESTORE R 
829 Olle22 013702 012030 MOV SAVR2, Re RESTORE 2 
830 Olle26 013703 Ole03e MOV SAVRS, Ra "RESTORE R3 
B21 Ollese 013704 012034 MOV SAVR4, RY *RESTORE RY 
832 011236 01370S 012036 MOV SAVRS LFS RESTORE RS 
| §33 Oligie b1e737 Yeeeg p1e049 MOV DELAY P 
B34 411 4 Olle62 O00004 BIS are XCSR(R4) ;IF ORGINALLY SET; SET TX IE 
83S 011256 000177 000560 JMP aBACK 
B36 Olleb2 oo0000 QTPIE: oo0000 
S 
846 helelaiahalalal-iy--+-+)+-£-$:+-1g-+-tab-tr?-+-Svlalababalede 
B4i : SUBROU CHECK 
| Bu> RECEIVE 
843 UHHH HEHE HHEG HEHEHE 
| B44 011264 b13746 010050 ;WAS THERE A RECEIVE ERROR? 
B45 Olle70 001413 STDA -BR IF 
B46 Olle72 032737 O20000 177570 -- OTT #B1T13,SWR INHIBIT PRINTOUTS? 
847 011300 001007 BNE TSTDAT *BR IF 
| Be Ble doar Tete Fer’ disieoois ——_Henint ‘EONS GP Agee ERR: FOU 
| Bea BLES Be oae ier (RO Re ; 
851 011314 104406 011545 naa TYPE MSG1 : 3 (15) <12) te P ‘ 
25 abe ot 3784 Bt Nov : SETUP RCV DATA AD 
| 854 0Q11330 122122 SCANY: CMPB (R1)+, (R2)+ DATA OK 
| g55 011332 001776 BEQ *BR IF O 
| 656 O11334 123741 O10040 CMPB  =soTX.TERM,-(R1) ;IS IT oN OF DATA 
857 O11349 1447 BEQ TESTDX ‘BR IF YES 
es8 O11 122742 CMPB -« #02, - (R2) 
859 O11346 001505 BNE 2s 
| 860 011350 010237 011356 MOV. =s-« Re, 18 
| G61 011354 04400 
| 








OC11 ITEP OVERLAY MACYLL 27( 732) 
020608. P11 
862 011356 000000 
863 011360 Ocd3? 
84 011362 
85 011362 12 
B55 O11264 001435 
867 01136 182721 000177 
Bes b11a7a | boSsaI 
870 011376 lee7e2 000177 
gr Oude Ooi758 
872 O11404 00240 
873 011406 932737 Oe20000 177570 
874 O11414 001016 
B75 O14 204400 B1Ass0 i 
876 Oll¥ee O1 Q10020 011432 
877 O11430 104400 
878 011432 000000 
879 O11434 104400 011575 
880 O11440 013737 910022 011450 
881 O11446 104400 
B82 O11450 010022 
883 O1145e 111103 
884 O11454 114202 
885 011456 104007 
B86 O11460 005726 
Be? Oll46e 000207 
889 O11464 OOSOIS O44124 051105 
(1) 911545 — O15 Og00Ie 
(1) O11550 ooso15 O4e522 o4e503 
(1) 1S7S O15 GNeDle 052101 
(1) 011620 005015 046120 o40S05 
(1) 011667 O15 OS34l2 O42510 
(1) 011752 O0S01S 046120 040505 
(1) OL oooc00 
Ol o00000 
01 oo0co0 
01 000000 
Ol 000000 
01 9o0000 
O1 000000 
BiS0s4 | DO0dDD 


BURREBEe 
pester 
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1$: 
es: 


SCANS: 


RDAX: 


DERR: 


TESTDX: 





OOOOOOOO0O «++ + s+ « « s 





TESTDX 
(Re) A 
TESTDX :BR IF YES 
#177, (Rl)+ IS IT FILL CHAR? 
SCANS -BR IF YES 
Ri : BACKUP 
#177 (R2)+ ;IS IT FILL? 
SCANS *BR IF YES 
*DATA ERROR 
#81T13,a#SWR | ;INHIBIT PRINTOUTS 
DERR ‘BR IF YES 
MSG2 <15)<12)RECEIVED DATA = <15><12> 
tRDA, RDAX SETUP DATA ADRESS 
:PRINT RECEIVED DATA 
“RECEIVED DATA ADDR. 
MSG3 *<15)<12>DATA SHOULD BE<15><12> 
txDA, .+10 SETUP ADDR. 
*PRINT GOOD DATA 
(R1),R3_;SETUP XMIT DATA 
-(R2},R2 ;SETUP RCV DATA 
*DATA ERROR HALT 
(SP}+ :POP STACK 
PC *RETURN FROM SUB/ROUT 
(15) (12) /THERE WAS A RECEIVER ERROR. REGISTER (SEL 2) =/ 
(15><12>/RECEIVED DATA = /<15><12> 
<15><12>/DATA SHOULD BE/<15>< 12> 
15)><12>/PLEASE MAKE CONNECTION (DIAL NUMBER). / 
15><12>/WHEN CONNECTION COMPLETE: HIT CONTINUE SWITCH. 7<15><12> 
15><12>/PLEASE MAKE CONNECTION (DIAL NUMBER). 7<15><l2) 
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Sag Ieee << ag ts acacia mata ataaaaie 
300 INITIALIZE TRANSMIT SUBROUTINE 
353 o4100 RETeTTTertrerrrrerererterererirrerirt errr rer ert errr TTT TTT TTT re 
012046 04200  STARTX: 
$04 0120 37 012040 04300 TST DELAY IF SWO4=1 $ SuiHz6 WAIT BEFORE TURINING ON TX 
gos Ol 001416 04400 BEQ 1$ "NO GO AHEAD AND TURN ON 
906 012054 012514 04500 CLR TEMP PREPARE FOR DELAY 
907 O1e060 b1e732 000007 012516 04600 MOV &7, TEMP? 
gos Ol 737 000001 012514 04700 ADD tl "TEMP! s INCREMENT DELAY....... 
809 012074 001374 04800 BNE 
910 012076 005337 012516 04900 DEC TEMP2 
811 Ol2l02 001371 05009 BNE .-14 
912 012104 005037 012040 05100 CLR DELAY :ZERO POINTER. 
913 012110 013737 O10022 o100b2 OoS200 15: MOV IXDA, XDA : SETUP XNIT DATA ADDR. 
814 O12116 O42700 100000 05300 BIC #XFLG, STAT  :RESSET XMIT COMPLETE FLAG 
815 Ol2l22 052714 000001 05406 BIS #DTR, @RCSR ;SET DATA TERM READY 
916 Olele6 737 012044 95500 TST STOP’ 
917 Olel3e 001005 OS600 BNE 2 
918 012134 104400 011620 05700 TYPE ,MSG4 
919 O12140 ooc000 05806 HALT 
920 Olel42 005137 012044 05900 COM STOP 
921 012146 032737 000001 o10014 O6000 2s: BIT #FULL. DUPLEX, PARAM2; FULL DUPLEX? 
922 012154 001003 06100 BNE -BR'IF YES 
923 0121568 032714 Ooo0004 06200 BIT #4, IRCSR :CARRIER UP? 
924 Ol2l62 001375 06300 BNE - : YES 
326 012164 052764 oO00001 o00004 C&YO0 3s: BIS #ROTS, XCSR(RY) 
827 912172 032764 O00002 oDp0004 ea CTSW: BIT #CTS, | XCSR(R4);IS CLEAR TO SEND SET? 
§28 O01 001017 06700 BNE x3 BR IF Y 
929 Oleede Oe 010032 00036 06800 CMP TIME, #36 330 SECS ELASPED? 
| $30 Ole210 103770 06900 BLO CTSw’ F NO 
$31 Oleele 011402 07000 MOV JRCSR, Re SET UP RCV 
932 O12214 016403 oD0004 07100 MOV XCSR(RY) RB SETUP _XMIT CSR 
| 933 Qleeed 032737 010000 177570 07200 BIT #SWl2, SWR ; INH IBIT PRINTOUTS? 
934 Ol2226 001001 07300 B 1$ YES 
935 Ole230 104002 07400 HL T+2 ;PRINTOUT "WAITING TO XMIT’ 
936 Olee3e 005037 010032 07500 1S: CLR TIME sRESET TIMER 
937 Olee36 000755 07600 BR CTS :WAIT SOME MORE 
938 012240 032714 OD0004 07700 «2: BIT #4, JRCSR 1S CARRIER UP? 
333 012244 001775 07800 BEQ 2s ?BR IF NO 
| 941 012246 005737 o10024 F000 vi CTSOK: TST SETTLE sCONNECTION JUST MADE? 
ae Ol22S2 O01416 08100 BEQ es ‘BR IF NO 
, 943 012254 005037 012514 08200 CLR EMPL "YES PREPARE FOR DELAY 
944 012260 012737 000030 012516 08300 MOV #14*2, TEMP2 
S45 Ol22bb 000001 012514 o8400 ADD #1, TEMPI ; INCREMENT DELAY 
946 012274 001374 08500 BNE .-6 
947 012276 012516 DEC TEMP2 
| 948 Ol2e302 00137 08700 BNE 14 
S44 012304 010024 08800 CLR SETTLE ;CLEAR DELAY FLAG 
850 012310 37 000001 010014 08900 2%: BIT #FULL. DUPLEX, PARAN2; sFULL DUPLEX? 
951 Oie316 1415 03000 BEQ 1 NO 
92 O1 000004 03100 BIT 8XLB, MODE ;XLB MODE? 
953 012304 O0141e BEQ NO 
954 Ole326 012737 177777 Oles22 09300 MOV #-1, TRNFLG SET FLAG 
j 
| 
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95S 012334 OSe764 000100 900004 909400 BIS STIE,XCSR(R4)  ;SET INTERUPT ENABLE 
956 QOles4¥e 000001 09500 WAIT 
957 012344 005737 OleSe0 09600 TST SNCFLG sFIRST CHAR RECEIVED YET? 


959 Dies 052764 090100 o00004 99800 15: 81S #TIE, XCSR(R4): ISET XMIT INTERRUPT EN@BLE 
360 le 000207 09900 RTS PC ‘EXIT FROM SUBROUTINE 

962 5 RELRRRLLAAAAAL LELALALERELLLLEEL LLL ARELE LE RELELE LEAF LERLLL FLEE 
963 : INITIALIZE RECEIVER SUBROUTINE 

964 Ritiiiiiistitiitticrtttt it crtttiitittiriiiiiiiiitierrieere reso g 
965 012362 005737 o12044 10200  STARTR: TST STOP -FIRST TINE HERE? 

966 012366 901012 10300 BNE i$ iB Bia 

967 Ole370 052714 oo0001 10400 BIS eOTR JRCSR 

968 012374 1044 011756 19509 TYPE is Bele <CoMECTIO 

969 1 1 010024 10600 28: MOV ae ETTLE “YES SET DELAY PLAG 

§70 012408 Ole737 177777 012044 10700 MOV STOP 

971 Oledl4 032737 000001 010014 19809 1S: BIT SUL. DUPLEX, PARAL; 2FFULL DUPLEX? 

375 15059 95700 00004 19300 Br? = 8.8. move ore MODE? 

974 012430 001405 11100 BEQ 3$ ‘BR IF NO 

975 012432 012514 11296 CLR TEMP! START DELAY 

976 012436 005237 012514 11300 INC TENPL 

977 012442 001375 11400 BNE 

978 012444 012737 177777 O12520 11500 2%: MOV ft SNCFLG. :SET FLAG 

979 012452 013737 O10020 010060 11600 MOV IRDA SETUP RCV DATA ADDR 

980 012460 012737 001000 O100S6 11700 MOV #1000, Ree :SETUP RCV CHAR COUNT 

981 012466 042700 11800 BIC #RFLG, STAT ;RESET RCV COMPLETE FLAG 
982 012472 010048 11900 CLR ERCSR RESET ERROR RECORDS 

883 912476 005037 O100S0 12000 CLR ERDBR 

984 O1eS02 005764 12100 TST RBUF (R AR ANY DONE BIT. 

98S 012506 052714 OO00101 12200 BIS RIESOTR, JRCSR; is, SRERRUPT ENABLES 

986 O125i2 000207 12300 RTS PC EXIT FROM SUBROUTINE 

887 012514 O00000 12400 TEMP1: O 

988 012516 000000 le TEMP2: O 

969 012520 00000 00  SNCFLG: O 

990 Ole522 900000 12700  TRNFLG: O 


| 853 O1e350 001375 09700 BNE 
' 
| 
| 
j 
| 
| 
| 
| 
| 
: 





Bsa oe OVERLAY MACY11 27(722) 23-SEP-76 08:44 PAGE S93 
























leipdenamanat teh ttt ete tt Lite gp inh ee dey cleat 
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1046 18000 


| 992 TRANSMIT INTEPQUPT SERVICE ROUTNE 
a55 5 5bEEEEEEEEEALNEEESESESELESEEASSDESESEESRERESEDEREEEEEEEEREEES 
394 ee ogee 13000 «ISR: 
99s le?737? 175330 010040 13100 CMPB axDR TX.TERM § ;FINISHED XMITTING? 
995 O1e534 001011 13200 BNE ;BR IF N 
997 012536 952700 100000 13300 BI a STA ET XMIT COMPLETE FLAG 
998 010542 042764 000001 on0004 13400 BIC sROTS, XCERCRY) *RESET REQUEST TO SEND 
889 012550 O42764 000100 o00004 13500 BIC #TIE,’ XCSR(R4):RESET XMIT INTERRUPT ENABLE 
1900 {beep 17 13600 BR XISR2 : 
1008 012560 117764 175276 000005 13800 XISR1: MOVB  3XDA,  XBUF(R4);XMIT NEXT CHAR. 
1003 012566 032737 000100 177570 13900 BIT #100; SUR ‘MONITOR OUTPUT? 
1004 012574 001406 14000 BEQ NOXMON *BR IF NO 
1005 012576 105777 175266 14100 TSTB ss TPS 1S TTY AVAILABLE 
1008 Ole602 100003 14200 BPL NOXMON ‘BR IF 
1007 012604 117777 175252 175260 14300 MOVB aXDA, @TPB  ;TYPE THE CHAR 
1008 Ol261e 14400 NOXMON: 
1009 Oleble 005237 910062 14500 INC XDA s INCRMENT A RODRESS 
1010 012616 005737 Olesee 14800 XISR2: TST TRNFLG ;FIRST CHAR 
1011 Olese2 001403 14706 BEQ 1 
10le O12624 042764 000100 copoo4 14800 BIC #TIE, XCSR(RY) ;CLEAR INTERUPT ENABLE 
1013 Ole632 005037 010032 14900 1S: CLR TIME RESET TIMER 
1914 012636 005037 012522 15000 CLR TRNFLG : CLEAR FLAG 
1015 Ol2642 o00002 15100 RTI URN FROM INTERRUPT 
1016 Muu ae 
1017 RECEIVE INTERRUPT SERVICE ROUTINE 
1018 Sag eEHHHHE HHA HEH HHHEH HBB HEH HHE EA HHHE EHS 
1013 912644 o00240 15300 RISR: NOP 
1020 O12646 105714 15400 TSTB  a@RCSR i1S RECEIVER DONE BIT SET 
1021 012650 100050 15500 BPL RISR2 >BR IF NO 
1022 Ol2652 116401 900002 15600 MOVB §RBUF(RY),R1 j STORE CHAR. 
1023 012656 142701 000200 15700 BICB = #200, 1 ‘STRIP A BIT 
1024 Olebbe 119177 175172 15800 MOVB = RI JRDA ;MOVE CHAR TO INBUF 
1025 Ol 40 177570 15900 BIT #40 SUR “MONITOR INPUT? 
1026 012674 001405 16000 BEQ NORMON N 
1027 012676 105777 175166 16100 TSTB = TPS ‘Is TTY AVAILABLE? 
1028 Ole702 100002 16200 BPL NORMON : 
| 1083 Ole704 110177 175162 16300 MOVE RI, 3TPB ss; TYPE _THE CHAR 
1030 012710 16400 NORMON: 
1031 012710 005237 610060 16500 INC RDA :BUMP_ POINT 
1032 O1e714 1 175140 16600 CLRB  aRDA * CLEAR Renee Baar POSITION 
1033 012720 005337 O100S6 16700 DEC RCC *DECREMENT CHAR. COUNTER 
1034 012724 001003 16800 BNE 1$ ;BR IF BUFFER NOT FULL 
1035 Ole7e6 104006 16900 HLT+6 "RECEIVER BUFFER FULL 
| 1036 012730 004737 012362 17000 JSR PC,STARTR INITIALIZE RECEIVER 
1038 012734 123701 010041 17200 1S: CMPB ss RX. TERM, R1 s15 IT LINE FEED? 
| 1039 012740 001004 17300 BNE ISR1 *BR IF N 
1040 Ol2742 042714 000100 17400 BIC #RIE, IRCSR DISABLE INTERRUPTS 
1041 012746 OS2700 o40000 17500 BIS BRFLG, STAT  :SET RCVR COMPLETE FLAG 
1042 Ol 005764 900002 17600 RISRI: TST REUP UF (RY) 315 THERE A DATA ERROR 
1043 012756 100005 17700 BPL RiSRe -BR IF N 
1044 012760 011437 0o10046 17800 MOY JRCSR, ERCSR :SAVE RCSR 
104S 012764 016437 O00002 010050 17900 MOV RBUF(R4Y),ERDBR ;SAVE RDBR 
| 
| 
| 
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1047 012772 005714 

1o48 Oleze¥ 100004 

1043 O1e776 011437 o10052 
1050 013002 05270¢ 920000 
1051 013006 O0S037 Oles20 
1052 13012 008037 O10032 
1053 013016 900002 

1054 

1055 o00001 
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18100 RiSR2: TST IRCSR 51S THERE A DATA SET STATUS CHANGE 
18200 PL RISR3 :BR IFN 

18309 MOV JRCSR, DSSTAT SAVE STATUS 

18400 BIS BOSELE, STAT SET FLAG 

18500 RISR3: CLR SNC 

18600 éLR Hee® RESET TIMER 

18700 RTI ‘RETURN FROM INTERRUPT 

18800 

18900 END 
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88 010004 








BACK 012042 
BITO = 009001 
BIT1 = 000002 
BIT1O = O0eC00 
BIT11 = 004000 
5ITle = 010000 
BITi3 = 020000 
BIT14 = 040000 
; BITIS = 10 
BITe = 000004 
BIT3 = 000010 
BIT& = 000020 
BITS = 000040 
BIT& = 000100 
BIT7 = o00200 
BITS = 000400 
8IT9 = 001000 
BRK = ar 
B2016 010030 
CO = 04 
CT = 040000 
Crs = 02 
CTSOK Ol12246 
CTSW 0121 
DC11 01 
DELAY 012040 
DERR 0114S2 
DSFLG = 920000 
OSSTAT 010052 
OTR = 0 
ENTER Ollele 
EOP Ollilee 
See 
i; ERCSR Ol0046 
ERDBR Ol 
FULL.D= 900001 
GO 010156 
HD = 004000 
|ILB = 900010 
IRDA 010020 
IXDA 010022 
LOOP = 000020 
| MODE =~000000 
| MSGO 11464 
| Mega 01154S 
MSGe 011550 
| MoGs 11575 
MSGY 01i620 
MSGS 011752 
| NODAT = 000200 
NORMON 012710 
NOXMON Oleble 
OV = 010000 
OWI = 000002 
= 000001 
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723% 804# 835 8964 





S46 
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PARAM! 10012 
PARAMe 010014 
PARAMS 010016 
PC =%000907 


PRIOR 010010 
FS = 177776 


RBUF O02 
RCC 0100SE 
RCSR =~000004 


= 000200 
RDA 010060 
011432 
RFLG = 040000 
I = 020000 
RIE = 0001 
RISR 012644 
Skl Ole 
RISR2 O01e277e 
RISKS Ol 
RIV Ql 
ROTS = 000 
RWAIT = 104 
RX.TER O10041 
RO =%000000 
R} =%000001 
Re =%000002 


hee =”000003 
” =%000004 
| 


URS =7000005 
Re _ . 3%000006 


START 010074 
'STARTR Ole3be 
| STARTX O12046 


MACY11 27(722) 
CROSS REFERENCE TABLE -- USER SYMSOLS 


23-SEP-76 08:44 PAGE 63 


763 773 785 921 
658% 675% 706% 719% 


834 836s 

1022 1042 1045S 
1033% 

650 681 


712 742 
1040% 1044 1047 1049 
W0e4* 1031% 1032% 
659 708 720 770 


sosx* S96* 818 827% 
828 8Sex 9854 856 


sogx 599% G00e E01 
774% 79ie = B20 BS 


e682 713% ° 720% 729 


606% 651 682 713 
927 932 goS* 959% 


868 871 
949% 969% 


989%  1051% 
B44e 850 886 


765 782 965%. 1036 
766 903% 


950 
737% 


774 


797 


849% 
867 


604# 
853% 


730% 


740 
984 


971 
7ES# 766% 7Se% 








791 915% 923 931 938 967% 


981 1041 


869% 883 1022 1023 i024 1029 


605* 606 650% 681% 712% 727% 
es4 858 860 865 870 884 


732% 733% 734% 735% 743% 775% 


775 814 
998% 1002 





Ce ee ee ee mn ee em See ee at em a ee ee 
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stat =x000000 St7s 645 659* 677 686% 706 720+ 
73he 420 797% 0s 4a 20s Sie )=— 997") «=610N]* = 1050 

sto 90400 c408 ‘ 

STOP O1e044 Sige 8o7e 916 S208 SES 970 

SWR os 177e70 c4oe 4 8=s-s«§ $5 6sé 665 687 713 721 
1093s 1025 

Swi2 = 010000 e408 $33 

sxcsR 010042 57308 

TEMP] 012514 Sos si0Se# =O Ze CHS C7S*# 76H) 2s S878 

TEMPE OleS1& 7% $id# lene 347% 9888 

TESTD OLLE64 432) 719 801 S448 

TEETDX O11460 957 B63 S66 Sse 

TIE = 900190 Sots 3s 15 81g 355 359 999 ©6012 

TIME 010032 3) ee | 53+ 676+ 679 bE4e 
1h ee 777% 85 734% 798% 929 

TKS 010066 Sess 

TKS DIODES csus 

TPE 010072 Se78 1007# 10298 

| Tes 010070 pees 1027 

] = r 

TRNFLG Ol2S2e Ss4# 9908 1C01G 1014« 

TSTDRT 11320 Eat 847 gt28 

x, l csSe = s«BSE 935 

| TYPE = 104400 c40s 43s 851 Bel 875 977 979 

| XBUF = C4os 100e# 

| xet 10054 5798 

xCSR = 000004 c40s 606% 651 682 743 743 775 
Pk g9sS# 969% 996s S# 10le# 

XDA 910062 SBoe —7e# «= 9138 «= 995) 1002 = 1007 = 100% 

XFLG = 106000 ces sé 686 738 74; 768 781 

/xISR 86: Ol PS24 £00 o348 

Be 012560 99% 10028 

| x? 012616 1000 «=—s_s«10108 

| xB = 000004 S408 626 gs 973 

| MWAIT = sOs41e cuds 

PoP Biase See 

| $0u6 Bitece Ps 6758 «631 

$4.8 O10674 bee eee 86-03 B04 

5 = £13020 S428 731 680+ 909 $11 $24 


881 


792 


S46 


$18 


814 


$48 


768 


80e 


7154 
10Se# 


968 


B1b# 


914 


958 





| 
| 
| 
| 
| 
i 
| 
| 
| 
| 


ee oy 
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| BOX ge 0 SkH SSL 899 HZ SLL 
| DCPARN e 524 

| DHDOS1 is 

| DHPARN cs 

| DJPARM 28 

| DLEARM es 

_ DPPARN 28 

ee 

‘ t 

| HELLO is 2 

: sue 6S 683 714 #4744 #£«977% # #799 «©4685 935 
| SEQUAT desu 

| SINTF Se } $42 

| SITEP ee 607 

SSERV ee = oS? 


ee ee + = 


ne + ee ee ne ee re ee eee 
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800 308 a45 

BED 618 621 624 627 bb! 722 726 764 786 e03 245 

2 368 87 955 $39 Q42 351 353 972 $7 1004 1011 1026 

Bic 5% 605 é5§ 686 720 78] ¢ 797 gis 816 sry 

oS wie 1040 

BIcs 1023 

575 834 915 925 sss 95g 967 ges 7 1041 1050 

BI? 617 620 623 626 B46 656 660 67 6 708 717 72} 
268 ; ee3 758 ? 739 go2 873 921 923 927 

3 $71 97 10 1025 

; BLO 645 £80 711 741 790 930 

SNE b47 &S7 £78 703 718 7231 733 769 771 780 768 g99 

* 309 911 $17 924 038 934 Que 948 952 QE 3 

BPL 1008 Gel 19288 1043 1048 

Ss 630 654 564 3! 716 74g 778 783 795 863 937 

CLR 614 615 616 653 676 684 707 715 736 74 767 q7 

$12 936 343 3 975 983 1013 1014 #1051 1052 

CLRE 735~—Cfs«1 032 

Keep 848 £79 710 740 772 78 329 

2uog ass ecg 870 3996 1038 

COM 839 

DEC 3) 910 947 1033 

EMT 540 

HALT £29 919 

INC 733 976 1009 1031 c 

| IMP 615 622 5 £28 eet 690 724 748 805 835 

ISR gst 658 675 705 719 737 76 782 801 849 1036 

MOV ts 697 $38 cst £90 601 £02 604 606 650 651 
683 zie i 723 727 728 729 742 mg rz ae 731 
ei, (BAEC ce, CSS SCC (iiECisti‘imSR:(C(éN‘CWSSG;C(‘<‘éS 
979 980 «= «1044)=Sfsa4S=—Ss«049 

MOVE 730 ? 4 Bes 1002420 s«1007,—'s«sid2e ~Sss(ia1024§=—s: 1029 

Noe ass 101 

RTI 1015 1053 

RTS p24 887 969 3ee 

TST 850 BEE a04 916 941 957 SéS 94 1010 1042 1047 

TSTB pss 1005 1020 1027 

WAIT 4 

BOTT 6&9 

ASC! 544 889 

END 1055 

ENDO 2 3s 765 781 787 872 

“EQUIV S40 

EVEN ets 

IF e3 23 762 7&5 779 781 785 787 972 

LIFF 29 

LIST 1 i S24 S40 889 

“MACRO 1 

| -Besel 2 5 ii fa ee zo 540 5 95 749 239 

| Ree é 35 26 ES 2 53 142 ig $32 289 £08 

WORD i 


5S7 ss8 


un 
un 
wn 
hy 
uw 
wn 
w 
wn 
wi 
+ 
wu 
uy 
uw 
wn 
o 
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| ERRORS DETECTED: 0 
| DEFAULT GLOBALS GENERATED: 0 


2 DZDCOB. SEQ SQL /CRE “PAGNUMe ITEPY, D20CCE 
RUNSTINE: IS 2 1 SECONDS 

RUN-TIME RATION 228;S459-3 

CORE USED: 6K (32 PAGES) 


[a 


mar 


acge 


FOS 


8 kw ity ‘. fred 


snc wel 00 booth teri: 


44") ; a Ate 


cee ula'evelels vefalelefaste VOU fas OC ite UO000 its DOUUDOODOOOOU0 sititerditatat HOLd 


33333 HHHHHHHHHSBEESEESSEEEEREEEGEE?9777777>7RRsgRe8e98900009009900000000001 





